capture program drop mylincom3
program define mylincom3
	lincom blame_gov_health-praising_gov_health
	local nothing=" "       
	local nothing2=" "		
	local my_estimate= round(r(estimate),0.001)
	if r(p)<=0.1 {							
		if r(p)<=0.05 {
			if r(p)<=0.01 {
				estadd local blameh = trim("`: display %10.3f r(estimate)'***")
			}
			else {
				estadd local blameh = trim("`: display %10.3f r(estimate)'**")
			}
		}
		else {
			estadd local blameh = trim("`: display %10.3f r(estimate)'*")		
		}
	}
	else { 
		estadd local blameh = trim("`: display %10.3f r(estimate)'")
	}
	local blamehsd=r(se)
	estadd scalar blamehsd `blamehsd'
	
	lincom blame_gov_econ-praising_gov_econ
	local my_estimate= round(r(estimate),0.001)
	if r(p)<=0.1 {
		if r(p)<=0.05 {
			if r(p)<=0.01 {
				estadd local blamee = trim("`: display %10.3f r(estimate)'***")
			}
			else {
				estadd local blamee = trim("`: display %10.3f r(estimate)'**")
			}
		}
		else {
			estadd local blamee = trim("`: display %10.3f r(estimate)'*")
		
		}
	}
	else { 
		estadd local blamee = trim("`: display %10.3f r(estimate)'")

	}
	local seblamee=r(se)
	estadd scalar seblamee `seblamee'
end 
